Top 10k strings from HiSoft Pascal 4T v1.5M (1984)(HiSoft).tap in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Utilities & Educational / Sinclair ZX Spectrum - Utilities & Educational - [TAP] (TOSEC-v2007-01-01) /
Back to the directory listing
12 POS(21,15);
12 POS(21,0);
9 INLINE(#FD,#21,#3A,#5C,
8 (X>MINX)
8 (X<MAXX)
6 SPOUT(CHR(PENMODE));
6 PREPAREPEN;
6 POS(21,9);
5 POS(21,1);
5 LOESCHE:=5*32;clear;
4 WRITE(CHR(20),CHR(1));
4 WRITE(CHR(20),CHR(0));
4 WRITE(',');
4 POSV:=1;POSH:=8;print;
4 POSV:=10;POSH:=0;print;
4 POS(21,10);
4 I:INTEGER;
4 EXIT:=FALSE;
4 #DD,#7E,2,#D7)
4 KEY<>CHR(32)
4 (Y>MINY)
3 listmenge;
3 XCOR:=X; YCOR:=Y
3 WRITE(' ')
3 USER(3756)
3 TURTLEY:=ORD(PEEK(23678,CHAR))
3 TURTLEX:=ORD(PEEK(23677,CHAR))
3 TURNTO(0);
3 SPOUT(CHR(LINE));
3 SPOUT(CHR(COLUMN));
3 SPOUT(CHR(C))
3 SPOUT(CHR(8))
3 SPOUT(CHR(22));
3 SPOUT(CHR(21));
3 SPOUT(CHR(20));
3 SPOUT(CHR(17));
3 SPOUT(CHR(16));
3 SGNX,SGNY:INTEGER;
3 SETXY(XCOR+ROUND(I*COS(ANGLE*PI/180)),YCOR+ROUND(I*SIN(ANGLE*PI/180)));
3 SETXY(127,87);
3 POSV:=19;POSH:=0;print;
3 PLOT(XCOR,YCOR);
3 PI=3.1415926;
3 PENMODE:=1;
3 PENMODE:=0;
3 PENMODE,A,B:INTEGER;
3 PENDOWN(6)
3 MINX=0; MAXX=255;
3 LINE1(ABS(X),ABS(Y),SGNX,SGNY)
3 LINE(X-TURTLEX,Y-TURTLEY)
3 LINE(ROUND(I*COS(ANGLE*PI/180)),ROUND(I*SIN(ANGLE*PI/180)));
3 INLINE(1,0,3,#21,0,#58,
3 ANGLE:=(ANGLE+A)
3 #DD,#7E,2,7,7,7,#5F,
3 #DD,#56,2,#DD,#5E,4,#DD,
3 #DD,#46,2,#DD,#4E,4,#CD,
3 #7E,#E6,#C7,#B3,#77,
3 #46,6,#DD,#4E,8,#CD,
3 #23,#0B,#78,#B1,#20,
3 TURTLEY:INTEGER;
3 TURTLEX:INTEGER;
3 TURNTO(A:INTEGER);
3 TURN(A:INTEGER);
3 SPOUT(C:CHAR);
3 SGNY:=-1;
3 SGNX:=-1;
3 SETXY(X,Y:INTEGER);
3 PREPAREPEN;
3 POS(LINE,COLUMN:INTEGER);
3 PLOT(X,Y:INTEGER);
3 PENDOWN(C:INTEGER);
3 PAPER(C:INTEGER);
3 MOVETO(X,Y:INTEGER);
3 MOVE(I:INTEGER);
3 LINE1(X,Y,SX,SY:INTEGER);
3 LINE(X,Y:INTEGER);
3 INK(C:INTEGER);
3 INITTURTLE;
2 {==== HAUPTPROGRAMM====}
2 f"d`!Re"$`!
2 YCOR:=TURTLEY;
2 Y:=TURTLEY
2 XCOR:=TURTLEX;
2 X:=TURTLEX;
2 X:=127; Y:=87;
2 Write Protected
2 WRITELN('Bye...');
2 WRITE(CHR(21),CHR(0));
2 WRITE('Y=',TURTLEY:3,' ');
2 WRITE('Y=');
2 WRITE('X=',TURTLEX:3,' ');
2 WRITE('X=');
2 WRITE('WELCOME
2 WRITE('TURTLE MODUS');
2 WRITE('TURNTO ');
2 WRITE('TURN ');
2 WRITE('SETXY ');
2 WRITE('PAUSE ? ');
2 WRITE('PAPER ? ');
2 WRITE('MOVETO ');
2 WRITE('MOVE ');
2 WRITE('MAGIC SCREEN');
2 WRITE('INK ?');
2 WRITE('( Press SPACE-bar to continue )');
2 WRITE(' OK ... ')
2 WRITE(' OK ... ')
2 WRITE(' OK ... ');
2 WRITE(' OK ... ')
2 VIERECKE
2 Tape Error
2 TURNTO(A);
2 TOUT('MAGIC T.',16384,6912)
2 System Call Error
2 STICK:=ORD(INP(31))
2 SETXY(A,B);
2 READ(PAUSE);
2 READ(NEWY);
2 READ(NEWX);
2 POSV:=8;POSH:=25;print;
2 POSV:=6;POSH:=8;print;
2 POSV:=1;POSH:=7;print;
2 POSV:=14;POSH:=25;print;
2 POSV:=10;POSH:=6;print;
2 POSH:=13;print;
2 POS(21,I);
2 POS(20,0);
2 POS(12,15);
2 PLOT(XCOR,YCOR)
2 PLOT(X,Y);
2 PLOT(MINX,MINY);
2 PENDOWN(C);
2 Out of RAM
2 OeExponent expected
2 Number too large
2 Number expected
2 NEWX,NEWY,C:INTEGER;
2 Maths Call Error
2 MOVETO(A,B)
2 MINY=8; MAXY=175;
2 LOESCHE:=3*32;clear;
2 LINE(MAXX-MINX,0);
2 LINE(0,MAXY-MINY);
2 LINE(0,-MAXY+MINY);
2 LINE(-MAXX+MINX,0);
2 Index too Low
2 Index too High
2 INITTURTLE;
2 I:INTEGER ;
2 Halt at PC=
2 File Absent
2 EXIT:BOOLEAN;
2 EXIT:=TRUE;
2 Bad Filename
2 AUS:=ORD(INCH);
2 AUS:=AUS-32;
2 ANGLE,XCOR,YCOR,Y,X,J,PAUSE,
2 A,B:INTEGER;
2 ;{ von turtle }
2 ;{ von plotter }
2 ;POS(21,0);
2 2c`2``!&`"a`!
2 (NR+ANZ-1)
2 'Z':USER(3756);
2 'Q':EXIT:=TRUE;
2 'F':TURTLE;
2 'D':PENUP;
2 STICK:INTEGER;
2 MAGICSCREEN;
2 KEY:CHAR;
2 CH<>CHR(0);
2 (Y<MAXY);
2 (Y<MAXY)
1 wy out of limits with !
1 wx out of limits with !
1 spout(CHR(POSV));
1 spout(CHR(POSH));
1 spout(CHR(22));
1 ZX:=AB[1]+(Z*DX);
1 ZX :REAL;
1 ZEIT=10000;
1 Z,X {ALLG.ZAEHLER},
1 XM:=AS/In;
1 XG:=EXP((1/In)*LN(AM));
1 WRITE(Z:2,' ');
1 WRITE(NR);
1 WRITE(NAME);
1 WRITE(CHR(164));
1 WRITE(CHR(156+GR));
1 WRITE(ANZ);
1 WRITE(AC[Z]:4:1);
1 WRITE(AB[In]:8:3);
1 WRITE(AA[In]:8:3)
1 WRITE('y out of limits with ',Y);
1 WRITE('x out of limits with ',X);
1 WRITE('bis #: ',
1 WRITE('NAME:',NAME,':');
1 WRITE('Klassenbreite:',
1 WRITE('KEYS, AENDERN - K FUER KEMPSTON');
1 WRITE('ENDE');
1 WRITE('Datei speichern ..S');
1 WRITE('*** KLASSEN ***');
1 WRITE('* VERTEILUNG ueber die Klassen *');
1 WRITE(' ');
1 WERT:=WERT+PIX;
1 WERT:=128;
1 V:=6;H:=24;
1 V:=6;H:=12;
1 V:=6;H:=0;
1 V,H,POSV,POSH,{VERT,HOR}
1 USER(3756);
1 Top of RAM?
1 Top of RAM for 'T'?
1 Table Size?
1 TURTLE
1 TURNTO(W);
1 TOUT(NAME,ADDR(AA),
1 TIN(NAME,ADDR(AA))
1 STOP:=J>K;
1 STOP:=(OKAY=13)
1 STOP:=(AUSW>64)
1 STOP:=(AUS=76)
1 STOP:=(AUS=69)
1 SIZE(AA));
1 SETXY(X,Y);
1 S:=SQRT((1/(In-1))*AE);
1 READ(NAME);
1 READ(ANZ);
1 READ(AA[In]);
1 READ (KL);
1 R,NO :INTEGER;
1 POSV:=Z;POSH:=H;print;
1 POSV:=V;POSH:=H;print;
1 POSV:=V;POSH:=0;print;
1 POSV:=V-2;POSH:=H;print;
1 POSV:=8;POSH:=5;print;
1 POSV:=7;POSH:=1;print;
1 POSV:=3;POSH:=7;print;
1 POSV:=1;POSH:=5;print;
1 POSV:=18;POSH:=4;print;
1 POSV:=17;POSH:=10;print;
1 POSV:=14;POSH:=6;print;
1 POSV:=14;POSH:=5;print;
1 POSV:=14;POSH:=14;print;
1 POSV:=14;POSH:=13;print;
1 POSV:=13;POSH:=1;print;
1 POSV:=12;POSH:=8;print;
1 POSV:=12;POSH:=6;print;
1 POSV:=12;POSH:=25;print;
1 POSV:=12;POSH:=18;print;
1 POSV:=11;POSH:=8;print;
1 POSV:=11;POSH:=14;print;
1 POSV:=10;POSH:=8;print;
1 POSV:=10;POSH:=25;print;
1 POSV:=10;POSH:=1;print;
1 POSV:=0;POSH:=0;print;
1 POSH:=28;print;
1 POSH:=10;POSH:=0;print;
1 POSH:=0;print;
1 POKE(ADR,0);
1 POKE(ADR+Z,WERT);
1 POKE(ADR+7,0);
1 PLOT(X1,Y1);
1 PLOT(NEWX,NEWY)
1 PLOT(MINX+I,MINY+I);
1 OKAY:=ORD(INCH);
1 OKAY:=OKAY-32;
1 OK:=(OKAY=13)
1 OK,STOP:BOOLEAN;
1 No more text
1 No Table Space
1 NR,ANZ,MAX,KL:INTEGER;
1 NEWY:=Y+ROUND(R2*COS(I));
1 NEWX:=X+ROUND(R1*SIN(I));
1 NEWX,NEWY,
1 NAME:='________';
1 MULTI:REAL;
1 MULTI:=200/ACMAX;
1 MOVETO(X2,Y2)
1 MOVETO(MINX+I,MINY+I)
1 MOVETO(MINX+I,MAXY-I);
1 MOVETO(MAXX-I,MINY+I);
1 MOVETO(MAXX-I,MAXY-I);
1 MOVE(SEITE);
1 MINY=0; MAXY=175;
1 MAX:=ANZ;X:=1;
1 MAGIC |
1 MAGIC 4
1 LOESCHE:=8;clear;
1 LOESCHE:=32;clear;
1 LOESCHE:=2*32;clear;
1 LIST:=LIST+1;
1 LIST,LOESCHE,OKAY,
1 L:=(CHR(13));
1 K:INTEGER;
1 J:=1;N:=MAX;
1 INLINE(#FD,#21,#3A,#5C,
1 INLINE(#DD,#6E,2,#DD,
1 I,N,L:INTEGER;
1 Hisoft Pascal 4T 1.5M
1 HP4T5M 4
1 HP4T5M
1 GR:=ROUND(AC[Z]*MULTI);
1 GR :INTEGER;
1 GLEICH:BOOLEAN;
1 GLEICH:=(AB[X]=ZX)
1 G :REAL;
1 F#N#^#~#fo
1 End Address:
1 ELIPSOID(X,Y,R,R)
1 DX:=(AB[MAX]-AB[1])/KL;
1 DATEI
1 Copyright Hisoft 1983
1 CHECK(X,Y);
1 CHECK(X+TURTLEX,Y+TURTLEY);
1 AUSW:=ORD(INCH);
1 AUSW:=AUSW-32;
1 AUS,AUSW,In,
1 AS:=AS+AB[Z];
1 AS,AM,AE:REAL;
1 ANGLE,XCOR,YCOR,
1 AM:=AM+AB[Z];
1 AE:=SQR(AB[Z]-XM)+AE;
1 ADR:=ADR+8;
1 ADR:=(#FFC0);
1 ADR,WERT,PIX:INTEGER;
1 AC[Z]:=AC[Z]+1;
1 AC[Z]:=AC[Z]+0.5;
1 AC[Z+1]:=AC[Z+1]+0.5
1 ACMAX:= AC[Z];
1 AB[X]:=AA[Z];
1 AB[I]:=AB[L];
1 ;16:XXX;17:XXX;18:XXX;20:XXX;22:XXX;21:XXX
1 83:sortiere
1 82:rechne;
1 76:cassette;
1 75:klassen;
1 69:eingabe;
1 65:ausgabe;
1 5,#CD,#B5,3,#F3)
1 1 1#1&1)1,11171:1=1v1{1~1
1 0(060=0F0T0X0\0d0l0|0
1 /'/*/C/W/[/f/i/l/|/
1 .$.0.4.B.F.L.O.V.k.r.{.
1 -%-2-5-@-C-J-Q-\-a-f-m-q-
1 ,%,/,2,8,;,A,E,S,V,e,l,v,
1 +(+1+4+7+=+Z+_+f+i+z+
1 *%*;*A*D*G*M*T*e*m*
1 )")&)5)R)[)k)t)z)})
1 (OKAY=68);
1 (NR+ANZ-1)>max
1 (NR+ANZ-1));
1 (In:4,'.Wert : ');
1 (AUSW=90);
1 (AUSW<91);
1 (9(<(F(L(R(X([(^(d(g(k(t(y(|(
1 (12000*INTERVALL)
1 ('ab #',In:3);
1 ('Werteingabe von #:');
1 ('Wertausgabe von #:')
1 ('Standartabweichung :',S:8:3);
1 ('Sortierdatei...S');
1 ('Sortierdatei');
1 ('Quittieren ...>ENTER<'
1 ('Geometrisches Mittel :',XG:8:3);
1 ('Folgt darstellung der'
1 ('Eingabedatei von',
1 ('Eingabedatei auf',
1 ('Eingabedatei ...E');
1 ('EINGABEDATEI')
1 ('Datei laden ......L');
1 ('Azahl der Klassen: ');
1 ('Auswahl...?');
1 ('Arithmetisches Mittel :',XM:8:3);
1 ('Anzahl der Werte :');
1 ('AUSWAHL ..?');
1 ('***** MENUE *****',L,L,
1 ('*** Sortieren ***');
1 ('*** RECHNEN ***');
1 ('*** LOAD/SAVE ***');
1 ('*** EINGABE ***');
1 ('*** AUSGABE ***');
1 ( AB[I])<=(AB[L])
1 'U':PENDOWN(C);
1 'Sortieren ..... S':P,L,
1 'Rechnen ....... R':P,L,
1 'LOAD/SAVE ..... L':P,L,
1 'Korrigieren ...> Z <'
1 'Klassen ....... K':P,L,
1 'Kassette speichern':65);
1 'Kassette laden':63);
1 'Haeufigkeitsverteilung'
1 'HARDCOPY .....> D <'
1 'Ende .......... Z':P,L,
1 'Eingeben ...... E':P,L,
1 'Bitte waehlen ?':P);
1 'Ausgeben ...... A':P,L,
1 '!'$'+'9'<'F'K'Q'W'Z']'f'i'l's'x'
1 &'&/&7&B&G&J&M&V&
1 % %$%/%2%5%8%?%J%R%Y%]%`%d%g%n%q%u%x%
1 $ $)$,$/$5$K$V$l$s$w$z$
1 #s#r###s#r
1 #66,3,#DD,#5E,4,#DD,#56,
1 #(#.#3#7#=#I#S#V#Z#]#`#c#l#q#u#x#{#
1 " `UVIERECKE
1 " "#"&"0"6";">"K"R"U"\"_"b"e"o"r"u"
1 !*!3!8!;!C!G!M!R!U!X!
1 sortiere;
1 listmenge;
1 cassette;
1 XXX;
1 X:=X-1;Y:=Y+1
1 X:=X-1; Y:=Y-1
1 X:=X+1;Y:=Y+1
1 X:=X+1; Y:=Y-1
1 VIELECK(X,Y,SEITE,ECKE:INTEGER);
1 VECTOR(W,B:INTEGER);
1 Sy=(<={ /
1 STATISTIK;
1 PA:INTEGER;
1 NR+MAX-1
1 FREQUENZ=0
1 ELIPSOID(X,Y:INTEGER;R1,R2:REAL);
1 CONNECT(X1,Y1,X2,Y2:INTEGER);
1 CL:INTEGER;
1 CIRCLE(X,Y,R:INTEGER);
1 CHECK(X,Y:INTEGER);
1 BORDER(B:INTEGER);
1 BEEPER(ENTIER(FREQUENZ*INTERVALL),ENTIER(437500/FREQUENZ-30.125));
1 BEEPER(A,B:INTEGER);
1 BEEP(FREQUENZ:INTEGER;INTERVALL:REAL);
1 All rights reserved
1 ARCR(R,T:INTEGER);
1 ANZ:=MAX-NR+1;
1 ANZ:=(max-NR+1);
1 AC[Z]:=AC[Z]+1;
1 ACMAX < AC[Z]
1 AB[X]<= ZX
1 (Y>MAXY)
1 (Y<MINY)
1 (X>MAXX)
1 (X<MINX)
1 (NR+ANZ-1)>MAX
1 (FREQUENZ=0))
1 (FREQUENZ<14000)
1 ((FREQUENZ>0)
1 " & ) , 0 6 u
1 NEWX,NEWY,C:INTEGER;